home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Just Call Me Internet
/
Just Call Me Internet.iso
/
prog
/
atari
/
m2
/
cat3src
/
cat
/
timeserv.i
< prev
next >
Wrap
Text File
|
1997-10-26
|
2KB
|
106 lines
IMPLEMENTATION MODULE TimeService;
(*$R-,S-*)
FROM SYSTEM IMPORT ASSEMBLER;
PROCEDURE TimeToCard(Stunde,Minute,Sekunde : CARDINAL):CARDINAL;
BEGIN
RETURN 0
END TimeToCard;
PROCEDURE CardToTime(Time : CARDINAL;VAR Stunde,Minute,Sekunde : CARDINAL);
BEGIN
ASSEMBLER
MOVE.L Sekunde(A3),A0 ;ADR(Sekunde)
MOVE.L Minute(A3),A1 ;ADR(Minute)
MOVE.L Stunde(A3),A2 ;ADR(Stunde)
MOVEQ.L #0,D0
MOVE.W Time(A3),D0 ;Time
ROL.L #3,D0
ROR.B #3,D0
CLR.W D1
MOVE.B D0,D1
ADD.W D1,D1
MOVE.W D1,(A0) ;Sekunde
CLR.B D0
ROR.L #6,D0
ROR.B #2,D0
CLR.W D1
MOVE.B D0,D1
MOVE.W D1,(A1) ;Minute
CLR.B D0
ROR.W #8,D0
MOVE.W D0,(A2) ;Stunde
END;
END CardToTime;
PROCEDURE DateToCard(Jahr,Monat,Tag : CARDINAL):CARDINAL;
BEGIN
RETURN 0
END DateToCard;
PROCEDURE CardToDate(Date : CARDINAL;VAR Jahr,Monat,Tag : CARDINAL);
BEGIN
ASSEMBLER
MOVE.L Tag(A3),A0 ;ADR(Tag)
MOVE.L Monat(A3),A1 ;ADR(Monat)
MOVE.L Jahr(A3),A2 ;ADR(Jahr)
MOVEQ.L #0,D0 ;d0 lschen
MOVE.W Date(A3),D0 ;Date holen
ROL.L #3,D0
ROR.B #3,D0
CLR.W D1
MOVE.B D0,D1
MOVE.W D1,(A0) ;Tag
CLR.B D0
ROR.L #4,D0
ROR.B #4,D0
CLR.W D1
MOVE.B D0,D1
MOVE.W D1,(A1) ;Monat
ROR.W #8,D0
CLR.W D1
MOVE.B D0,D1
ADDI.W #1980,D1
MOVE.W D1,(A2) ;Jahr
END;
END CardToDate;
PROCEDURE DateTimeToLong(Jahr,Monat,Tag,
Stunde,Minute,Sekunde : CARDINAL):LONGCARD;
BEGIN
RETURN 0
END DateTimeToLong;
PROCEDURE LongToDateTime(DateTime : LONGCARD;
VAR Jahr,Monat,Tag,
Stunde, Minute,Sekunde : CARDINAL);
BEGIN
END LongToDateTime;
PROCEDURE SetTime(Time : CARDINAL); (* GEMDOS *)
BEGIN
END SetTime;
PROCEDURE SetDate(Date : CARDINAL); (* GEMDOS *)
BEGIN
END SetDate;
PROCEDURE SetDateTime(DateTime : LONGCARD); (* KEYBOARD *)
BEGIN
END SetDateTime;
PROCEDURE QuickAndDirty();
BEGIN
END QuickAndDirty;
PROCEDURE QuickAndDirtyToo();
BEGIN
END QuickAndDirtyToo;
END TimeService.